“ SiS8S8S8SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ee eS ae» a © a © ae 
Ae. Ge. Oe. Oe. Oe. Oe. Oe. Oe. Oe. Oe. A. Oe. he. et ts te ta ts te 
he be te be be Oe be be be be be be te te es a a te 


E RRRRRRRRRRRR 
E RRRRRRRRRRRR 
E RRRRRRRRRRRR 


Se ete e pete pec prelrelveyvelvelvulververververre) 
Se eee epeeteeleereeleelvelverververrel 
Soe edo d oe LoodeeRootoehootucleeteclvesectvelveneereelvenyel 


 <S Qo wr? wieewor o wr? ww T™ vr ww ™ ww ™ ao Wri wor a tw ww 
GGG ODDO OP PAPAS AAP POOOO DOO OO Ge we ee ee UNINC CUTI IRIE 
SSOSSSSSSSOSOSSSSSSSOSSSOSCOSSOSOOOSO DOOOOSOCOOOSOSOOOOOOSSOSSOSS 


G 12 
T 
T 


el ln 
ee eo 


23 
55552i55552353 
3333533333333 aa BAAL 


nn nw nw 
nn nn nn 
nn nn nw 
“nn nw nn 
nw mown nw 


3335353535335 RABAa aa 
8888888888 


“—— “—— 
“—— —o— 
8 Re Og Os Ong Og eg Ong Os OG OG OG OG OG 
kd Ot Os Od Oe Od Od Od Ons Oe OG OG OG 
_—— —o 
—o— - —o 


EEPFEEEEEEEEEE 33 
au 

3 33 
E 
EESSEEEEEEEEEE Isssssssssssas 


**F ILE**10**MOUNT 


iH 50:7). YNHTAGRTM Yt Shcanowntrons1 P28 


Version: *v04-000' 
SHSSSSASSSASSSAAAAASAAAAAAAAAAAAAAAARAAAAAREARAAAAATEAAAAAEAAEARAEAAARAEEAAEAEREEAEE 
& ae 
* COPYRIGHT ( ) 1978, 0282 1982, 1984 BY * 
* DIGITAL Eau PRENT PORATION, MAYNARD, MASSACHUSETTS. x 
* ALL RIGHTS RES wt Con : e 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 2 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH * 
. Incty ION OF THE ABOVE C YRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ® rf 
« COPIES THEREOF MAY NO OVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ‘ 
* OTHER PERSON. NO TITLE TO PND OWNERSHIP OF THE SOF TUARE 1S HEREBY « 4 
* TRANSFERRED. * 2! 
® 4 
* THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTIC : « 2 
* AND SHOULD BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 2j 
: CORPORATION. * 5 
® 4 
® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 3 
* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 34 
5< 
sednusnennnnesenbesnedanntannenobenebaneeennterencerenesentaceneenenesnnente 6( 


RLS 


Author BRIAN PORTER Creation Date 1-JUN-1980 


Modified by: 


v03-001 SAR0086 Sharon A. Reynolds, 20-Jun-1983 
Changed the corrtege control in the ‘format’ statements 
for use with ERF. 
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v02-003 ereees Qrien Porter, 16-JUN-1981 7 
dded ‘_* and ‘:' to device name in Stone i Added 5 

aae$ to’the Label name. Added call to LOGGER. 7 

v02-002 BP0002 Brian Porter, 19-MAY-1981 m 
Removed RETURN 1 argument from MOUNT_VOLUME and 7 
DISMOUNT_VOLUME . n 

v02-001 BP0001 Brian Porter, 04-FEB-1981 3 


Changed queuing code. 


POVOOOOOOOIOOOOAOAOAOOOAAOIAAAAAAOOAOAAAAOAAAAAAAAOOOOOO 


functional description 


This rout ing maintains a list of device names and associated volume 
label that is currently mounted. 


-Sep-1 210: VAX-11 FORTRAN V3.4-56 
1f-4ep-1984 90:d9:Fs  WEKSUMSRASTEN: PERE ssecamounr.ror:1 2% =? 
The format of the List entries is as follows. 


ge SS SSSSSSSSSSSSSSSSSSSSSSSSBSSISSSISSESGSSES + 


flink1 


+ eer eewerreaereceo@ocoro ert eowen see ee etme etrecamnmoeee + 


I blink! 


bon rw ne ene tem mene c ee me tee tenemos + 
logging sid 
team een seem a mre ne wren menace moe mer eco mwa 


root name flink 


7 Boe Ts sc e® Se Fe Fett s@ ewe nwBeow ese wow me se ee me + 


root name blink 


Fewer we mae wen er meme nw emo ee cw ern eee we wee} 


name entry count 


bom emer me wee cee eter eee eee neem een mew ewe te 


Fem ences oenweecmor momen e tame con mecca e oe > 


flink2 


Greet e maw ene ne en eee eee ee meee nee ween men} 


I blink2 


+ Ser ass eoc secre see eT ee es e2e2foeTOe eee eveeaen ane om & 


eee oo} 


I 16 bytes for name I 
string I 
ton --+ 


+ SSS SSSSSSSSSESSSSSSSSSSSSSSSISISSSSSOSOSOSOSOS + 


1 root unit flink 


Pree ee onto ewes oes on em man oom nese so ncoeah 


root unit blink 


tren moe nena mene ose cee nm er ereeecamnmeanen $ 


unit entry count 


+ SS PSO TeTB eB SS 2lFe TH Ae Soke mn De Se Eee a See aes + 


ee oe es eoewa eco aena nn wemanwmaonanranrcsemaewaoows + 


flink3 


¢ececocaecammam een ose e ae weer semen acne cwre woes} 


blink3 


fewer eee nsw saw wrt a none ow ownoanaane + 


ucb unit number 


+ SS SSS SSSSSSSSSSSSSSSSSVSSSSSSSVSSVSSOSOSSESEe a 


fos oa$ 


I 12 byte label field I 


too ood 


7 SSS SSS SSSSSSSSSSSSSSSSSSSSSISVSISSSSSOSESESE22 + 


I ucb operation count at mount I 


ower ecwe ec ae seassrceoore scene saeceoseessecea } 


I ucb error count at mount I 


enw men ewr ener sees stent ammo osr are oerameaan} 
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As mount entries are Gpoemmncores an ap repr tate, itee entry is created. 
When ad oroneus 5 gat is encountered the sary renee 

If when a mount is encountered and an entry already ex sts then that 
entry is A. FP with the current ucb data. 


-4-56 P 
RF .SRCJMOUNT .FOR; 1 vase Nes 


—> ss 


eaaaaan 


{searcher mount_volume (entrance,search_sid, 
search _name_length,search_name_str ng, search unit, 
2 vcb_label ,utb_operation_count ,Ucb_error_counf) 


Ou 


+ 
+ 


Functional description: 


This entry point is called when a MOUNT op error log 

entry type o encountered. The volume | is searched for 

an ener corres ves to § SEARCH SID-$ SEARCH_NAME_STRING and 
SEARCH then the contents of the o entry 8 are aoe 
with vtB SLABEL Tice. OPERATION aCQunT 8 and UCB_ ERRO 

is assumed that the correspond ne ISMOUNT “FOLURE error 109 entry 
is not part of the current file being processed If an entry is” not 
found then one is made and the above mentioned information stored. 
If the mon for virtual memory fails then the routine exits. 


w 


aaonaaanaaaaana 


try dismount_volume Sontrence seeren sid, 
| sear h_name_Tength,search_name_string,search sunit, 
2 vcb_ label ,mount_operat ion_count ,mount_error _tount 
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Functional description: 


jats routine is called ~ ? DISMOUNT VOLUME error Log entry 
$s encountered. The volume list is pearched for an en rey corresponding 
to SEARCH_SID,SEARCH_NAME_STRING,SEARCH_UNIT and VCB_L If 
entry is Tound then the operation and error counts ote returned . 
ts MOUNT “OPERATION. COUNT and MOUNT_ERROR_COUNT. 
on ry in the aqunt list i§ then removed. “If an entry is not found then 
the routine ex 


HAQOaaaaaaanan 


gt get_current_label (entrance, esearch, sid 
search_name yo phe esoarch _name_string, Search unit, 
2 caller_labeT_buffer,* 
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if ect9Re 48:19:9 


Functional description: 
This ode pA is genes t to ype the ont of the currently 
3 


mounted y t li 
SEARCA sib SeAnen NAME SinINc. and $ SEAR H_UNIT. 


found 


LER_LABEL BU 


xits Vie 


searched using 
f ts entry 
T field of the entry is “aritten ¢ 


BUFFER. If an entry is not found then the routine 


integert4 buf fer0(2) 

integers4 buf fer1(6) 

integes*4 buf fer2(9) 

integers4 buf fer3(8) 

integers4 root_logging_sid_flink 

integers4 root_logging_sid_blink 

equivalence (buf fer0(1) ,root_logging_sid_flink) 
equivalence (buf fer0(2) ,root_logging_sid_blink) 
integer*4 flink1 

integer*4 blink! 

integer*4 Logging_sid 

integers4 root_name_flink 

integer*4 root_name_blink 

integers4 name_entry_count 

equivalence (buffer1(1),flink1) 

equivalence (buf fer1(2) ,blink1) 

equivalence (buf fer1(3), Logging_sid) 
equivalence (buf fer1(4) ,root_name_flink) 
equivalence (buf fer1(5),root_name_blink) 
equivalence (buf fer1(6) ,name_entry_count) 
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eef 


integers4 
integer4 
byte 

byte 
character*15 
integers4 
integert4 
integer*4 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
integer*4 
integer*4 
integer*4 
byte 
character*l2 
integers4 
integers4 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 


ifBen-1964 90:10:24 


flink2 

blink2 

name_array(16) 

name_length 

name_string 

root_unit_flink 
root_unit_blink 
unit_entry_count 

(buf fer2(1), flink2) 

(buf fer2(2) ,blink2) 

(buf fer2(3) ,name_array) 
(name_array(1),name_length) 
(name_array(2) ,name_string) 
(buf fer2(7) ,root_unit_flink) 
(buf fer2(8) ,root_unit_blink) 
(buf fer2(9) ,unit_entry_count) 
flink3 

blink3 

ucb_unit_number 

label_array 

lLabel_string 
mount_ucd_operation_count 
mount _ucb_error_count 
(buffer3(1), flink3) 

(buf fer3(2) ,blink3) 

(buf fer3(3) ,ucb_unit_number) 
(buf fer3(4), Label_array) 
(Label_array,label_string) 
(buf fer3(7) ,mount_ucb_operation_count) 


Page 
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5 


ees te att ty ei7:42 — DISkSWMSRASTER:EEAF-SRcIMoUNT.FoR:1 29° & 
equivalence (buf fer3(8) ,mount_ucb_error_count) 
integers4 Logging_sid_entry_count 
integere4 Logging_sid_entry_address 
integer*4 name_entry_address 
integers4 unit_entry_address 
integer«4 entrance 
integers4 search_sid 
byte search_name_length 


character*!5 search_name_string 
integer*2 search_unit 
character*15 search_name 
character*l2 vcb_label 


integer*4 ucb_operation_count 
: integers4 ucb_error_count 

; integer*4 caller_label_buffer 
: Logical*1 LibSget_vm 

1 


cout eatin (Zval (search_name_length) ,fref(search_name_string) ,%val (42), 
1 Zval(15),Zref(search_name)y 


Logging_sid_entry_address = root_logging_sid_flink 

do 45,i = 1,logging_sid_entry_count 

call movcS (Zval(246) ,fval(logging_sid_entry_address) ,buffer1) 
5 if (search _sid .eq. logging_sid) then 

name_entry_address = root_name_flink 

do 35,j = 1,name_entry_count 

call movc3S (Zval(36),%val (name_entry_address) ,buffer2) 
10 if (search name .eq. name_string) then 

unit_entry_address = root_unit_flink 

do 25,k = 1,unit_entry_count 


NOUS WN OOONOUS WN O 


mo 


om ta 
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CIJMOUNT.FOR; 1 


call moved (%val(32),2val(unit_entry_address) ,buffer3) 
15 if (search unit .eq. ucb_unit_number) then 
to (50,75,100) entrance 
endif 


unit_entry_address = flink3 


25 continue 
goto (28,80,110) entrance 
return 

28 cont inue 


call moveS (Zval(0),,Zval(0),%val (32) ,buffer3) 

if (LibSget_vm(((32+7)/8)*8 ,unit_entry_address)) then 

call insque (Zval(unit_entry_address) ,ival(root_unit_blink)) 
ucb_unit_number = search_unit 


OGOOOCOCOCOCCOCOCOOOOOOOOOOOOOOOOOOOoO 


, call movc3S (%val(24),ucb_unit_number ,ival(unit_entry_address + 8)) 
fy unitlentry count = unit entry _count + 1 
7 call movl (unit_entry_count,%val(name_entry_address + 32)) 
f sat," 
15 endif. 
name_entry_address = flink2 
35 continue 
goto (38,80,110) entrance 
return 
38 continue 


call movcS (Zval(0),,%val(0),%val (36) ,buffer2) 

if (LibSget_vm(((36+7)/8)*8,name_entry_address)) then 

call insque (Zval(name_entry_address) ,2val(root_name_blink)) 

name_length = search_name_length 

name_string = search_name 
J 
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root_unit_flink = name_entry_address + 24 
root_unit blink = root_unit_flink 


ARAVLS 


call movc3 (%val(28),name_length,%val(name_entry_address + 8)) 
name_entry_count = name_entry_count + 1 
call movl (name_entry_count,%val(logging_sid_entry_address + 20)) 


goto 10 
endif 


return 
endif 


logging_sid_entry_address = flink! 


RRRLRLLLRLLLLLF 
SELF 


> 3 5 9 
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45 continue 
goto (48,80,110) entrance 
return 
48 continue 
call movcS (%val(0),,%val(0),%val(24) ,buffert) 
if (logging_sid_entry_count .eq. 0) then 
root_logging_sid_flink = Zloc(root_logging_sid_flink) 


root_logging_sid_blink = root_logging_sid_flink 
e€ 


ndif 
if (LibSget_vm(((24+7)/8)*8,lLogging_sid_entry_address)) then 


call insque (%val(logging_sid_entry_address), 
1 Lval (root logging 24d blink?) on 


oS 


logging_sid = search_sid 

root_name_flink = logging_sid_entry_address + 12 

root_name_blink = root_name_flink 

call movc3 (%val(16),logging_sid,%val(logging_sid_entry_address + 8)) 


PRRLRELRRRRRRLRERLKRKRKRKRKKKLK 


Fd ab et te het ae 
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5 logging_sid_entry_count = logging_sid_entry_count + 1 
to 5 
3 endif 
5 return 
56 50 continue 
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call Lib$Sfree_vm (((36+7)/8)*8,name_entry_address) 
name_entry_count = name_entry_count - 1 


call movil (name_entry_count,%val(logging_sid_entry_address + 20)) 


if (name_entry_count .eq. 0) then 


SEESERRe 


000’ 

; ¢ 00; 

¢ Action routine for MOUNT_VOLUME 

c 

1 

¢ lLabel_string = vcb_label 000° 

o mount_ucb_operation_count = ucb_operation_count Soe 

66 mount_ucb_error_count = ucb_error_count id 

e3 call move3 (%val(20),%ref(label_string) ,2val(unit_entry_address + 12)) bet: 

001) 

f 5955 oem i 

8 aia 001° 

74 ¢ 001! 

7 ¢ Action routine for DISMOUNT_VOLUME ooo 

7 00 ‘ 

8 if (veb_label .eq. label_string) then si 

go mount_operation_count = mount_ucb_operation_count 002: 

se mount_error_count = mount_ucb_error_count 09 | 

pees call remque (%val(unit_entry_address)..unit_entry_address) a8 

peas call Lib$Sfree_vm (((32+7)/8)*8,unit_entry_address) oo 

pees unit_entry_count = unit_entry_count - 1 ooat 

290 call movl (unit_entry_count,%val(name_entry_address + 32)) 903 

0492 if (unit_entry_count .eq. 0) then 905 

{ 

0494 call remque (%val(name_entry_address) ,name_entry_address) 003) 

0495 2% piel alle 005 
04 
04 
5 
5 
5 
5 


RENVLSSSLE 


call remque (Zval(logging_sid_entry_address),logging_sid_entry_adu. ess) 
call LibSfree_vm (((24+7)/8)*8,logging_sid_entry_address) 
logging.sid_entry_count = logging_sid_entry_count - 1 

endif 


oO 
w 


SELES 


SOoOoooooo 
PPAADAT AIA 
PPDADANIAN 


19 endif 
\ return 
1 endif 


110 


oO 


PROGRAM SECTIONS 


Name 


0 SCODE 
1 SPDATA 
2 SLOCAL 


013 

Mee eee eee Mei a9ifs «Nts coimgaasten:PeRe <ecamounr.ror;1 2%" '° 
return 
continue 


Action routine for GET_CURRENT_LABEL 


call movc3 (%val(12),Zref(label_string),caller_label_buffer) 
return 

return 1 

end 


Bytes Attributes 


84 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
504 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 


Total Space Allocated 1362 


ENTRY POINTS 


Address Type Name Address Type Name 
0-00000018 DISMOUNT_VOLUME 0-00000036 GET_CURRENT_LABEL 
0-00000000 MOUNT_VOCUME xf x 
VARIABLES 
Address Type Name Address Type Name 


N 
ING 
ol 


SID_BLINK 
BLINK 


0 
0 
6 
6 
6 
6 
6 
6 


a ae a tt es 8 


ANNO 


MOUNT _ VOLUME 
1*4 ROOT_UNIT_BLINK 
5 10064 CHAR SEARCH NAR 
AP=00000( CHAR $ ARLN HAN STRING 
AP-000000148 I1*2 SEARCH UNI 
AP-0000001C@ I*4 UCB_OPERATION COUNT 
2 . 1*4 UNIT _ENTRY_ADBRESS 
AP @ CHAR VCB_CABEL 
ARRAYS 
Address Type Name Bytes 
5C I*4 BUFFERO 
4 I*4 BUFFER! 
0 [6 pur rene 
1*4 BUFFER 
L* ARRAY 
LABELS 
Address Label Address Label 
0-0000007F 4 0-00000080 10 
0-00000187 38 ha 45 
0-000003 100 0-0000034A 110 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 

INSQUE 

REMQUE 


Type Name 
LIBSFREE_VM 


if Ben-1964 00:10:21 


2- 8 I*4 ROOT_UNIT_FLINK 
AP- a oe SEARTH_NARE_LENGTH 
AP- #4 SEARCH SID 
AP- @ i*4 UCB_ERROR_ COUNT 
$- I*4 UCB-UNIT_RUMBER 
= I*4 UNIT_ENTRY_COUNT 
Dimensions 
(8) 
(3) 
(8) 
(16) 


Address Label 


Q-O000000DF 15 
0-00000213 48 


Address’ Label 


et $2 
0-00000277 50 


Type Name Type Name 
L*1 LIBSGET_VM mMovCc3 


0-0000010E 28 *e 35 
0-00000335 80 


DEDEDE DADA DIDI DID cd ed ce ce dd ad dt 
Ot at od ot = =I MQOOO OOOO OOO 00000000 OO W000 09090909 O08 NINN 
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if-Ben-1966 90:10:94 


subroutine mount (Lun,option) 


include ‘src$:msghdr.for /nolist' 
include ‘src$:volmount.for /nolist' 


O68 
1 
1 
, 
| c Functional description: 
: c 
139 C This routine is called by the SYE dispatcher when a MOUNT VOLUME 
140 c error log entry is read. 
ye 
128 
144 
145 byte lun 
rg 
ape 4 character*! option 
aE 4 integer*4 compress4 
3 integer*4 LibSextzv 
138 logical*1 strStrim 
0155 integer4 emb$t_vm_label_length 
139 integere4 mount_operation_count 
139 integert4 mount_error_count 
+ 2 integere4 volume_operation_count 
188 integer*4 volume_error_count 
165 
1 
167 
; if (option .ne. 'C") then 
190 call mount_volume (1,emb$l_hd_sid gabse_va naan, cabSt_va_nane. 
171 1 emb$w_vm_unit,embSt_vm_label,emb l_vm_oprcnt,emb$l_vm_errcnt) 
ie endif 
17 
174 if ¢ 
175 1 option .eq. ‘S* 
176 1 .or. 
17 1 option .eq. ‘B' 
178 1) then 
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LERRENLSSSLESE 
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io 
wr 


cet nd A a tt 


NOUS UN —“OOOnNOuUfswN oO 


wn 


oO 


SS 


WnN— 


w 


10 


15 


c++ 


¢*e 


1$-$en~1964 09:10:24 
call header (lun) 
call logger (lun,"MOUNT VOLUME’) 


call Linchk (lun,4) 


if (.not. strStrim (emb$t_vm_lLabel,emb$t_vm_label, 
1 embSt _vm_label_length)) “then 


emb$t_vm_label_length = 12 

endif 

write(lun,10) emb$t_vm_name,emb$Sw_vm_unit, 
embSt tym, ey SE zemb§t 3vn- Label. ~ length) 


ct. hi} onys d_vm_naming>, 
1 1 {sgompressé a setettae 16,emb$Su_vm_ unit))>,":, VOLUME LABEL '"',a, 


write(lun, | abst _vm_oprcnt ae vm_errcnt 
format(' <conbrets (emb -\e “oprcnt)>, 

1°. Q10 obt Heh He S UNIT, <compress4 (emb$l _vm_errcnt)>, 
aie = THI 1") 

e 


return 
entry dismount (lun,option) 


Functional description: 
This routine is called when a DISMOUNT VOLUME error log entry is read 


if (option .ne. 'C") then 

mount_operation_count = -1 

mount_error_count = -1 

gett ismount_vol (2,emb$\_hd_sid,emb$b_vm_namln aan, vm_name, 


_vm_unit,emb$t_vm_labeT ,mount_operation_coun 
| gount. erfor_count) ~ 


if ¢ 
1 option .eq. ‘S* 
1 .or. 


VAX=-11 FORTRAN 
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et Bb eB ed Rt a nat 


& 
4 
4 
4 
re 
af 
“9 
; 
§ 
4 
: 
9 
60 
2 
$8 
64 
65 
6? 
69 
70 
71 
7 
7 
74 
75 
7 
7 


=S3a 


ieee 0:40:73 


1 option .eq. ‘B' 
1 yPthen ’ 


call header (lun) 
call logger (lun,"DISMOUNT VOLUME") 
call Linchk (lun,4) 


if (.not. strStrim (emb$t_vm_label ,emb$t_vm_label, 
1 embSt _vm_label_length)) “then 


onb$t_va_lebel_ length = 12 

write(lun,10) embSt_vm_name,emb$w_vm_unit 

1 emb$t_vm_Label(1:embSt_vm_label— “Yength): 

write(lun,15) emb$l_vm_oprcnt,emb$l_vm_errcnt 

if ¢ 

1 mount_operation_count .ne. -1 

1 .and. 

1 mount_error_count .ne. -1 

1) then 

volume_operation_count = emb$l_vm_oprcnt = mount_operation_count 
volume_error_count = emb$l_vm_errcnt - mount_error_count 
if (volume_operation_count) 60,25,25 

if (volume_error_count) 60,30,30 

call Linchk (lun,1) 

yr ivet tun, 35) oe operation_count,volume_error_count 
format (’ compress4 (volume ~operation- “county>, 

1°. Q10 OPERATIONS’ TH THIS »VOLURE. © -i<compress4 (volume error_count)>, 
1 *. ERRORS THIS VOLUME') 

endif 

endif 

return 


end 
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-Sep-1 DISKSVMSMASTER: CERF .SRCJMOUNT.FOR;1 
PROGRAM SECTIONS 
Name Bytes Attributes 
9 SCODE 59 PIC CON REL LCL SHR EXE RD NOWRT LONG 
ATA 4 PIC CON Ret LCL SHR NOEXE RD NOWRT LONG 
§ OCAL PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
ERB PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 1671 
ENTRY POINTS 
Address Type Name Address Type Name 
0-000000E 1 DISMOUNT 0-00000000 MOUNT 
VARIABLES 
Address Type Name Address Type Name 
EMBSB_VA_NAMLNG -000000 EMBSL_HD_SID 
EMBSL_VM_ERRCNT I*4 EMBSL_VM_OPRCNT 
Hine sh are EMBST_VM_LABEL 
EMBST_VA_LABEL_LENGTH EMBST_VM_NAME 
EMBSW_HD_ENTRY EMBSW_HD_ERRSEQ 
eee VA_NUMSET EMBSW_VM_UNIT 


L 
MOUNT OPERATION COUNT 


: 
a 
m 
= 
Bo 
Ed 
J 
: 


OPTION VOLUME _ERROR_COONT 
VOLUME _OPERATION_COUNT 
ARRAYS 
Address Type Name Bytes Dimensions 
ae sisa'a' 4 L*l EMB | aaa 
1*4 EMBSQ_HD_TIME (2) 
LABELS 
Address Label Address Label Address Label Address’ Label Address’ Label Address Label 
1-00000031 10° 1-00000064 15° ae 25 we 30 1-000000A8 35° 0-0000022E 60 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESS4 DISMOUNT_VOLUME HEADER 


1e4 LIBSEXTZV LINCHK LOGGER 
MOUNT_VOLUME Le1 STRSTRIM 


1 
1 
1 
1 
1 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
1 
i 
15 
FA 
i 
i 
15 
16 
16 
16 
16 
16 
16 
16 
16 
A 
i 
17 
17 
17 
17 
17 
17 
17 
17 
17 
Ag 
i 
18 


mount rp-Feo-1986 09:40:2)  yatedt cont Page 16 
COMMAND QUALIFIERS 
FORTRAN /L1S=L1S$:MOUNT/OBJ=0B/J$:MOUNT MSRC$:MOUNT 
CK=(NOBOUNDS F oye ERFLOW) 
/DEBuG= (WoSTRGGL  TRACEBA a a, 
EI} NOG. EPROCESSOR i oa /OPTIA i /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


en: ERE. ShcIMOUNT.FOR:1 


COMPILATION STATISTICS 


Run Time: ¢ 10 seconds 
Elapsed Time: 3 seconds 
Page Faults: é 

Dynamic Memory: 191 pages 


MSL 
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